home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / Personal Write 3.0 german.adf / Utilities / InstallPrinter < prev    next >
AmigaDOS Script File  |  1990-04-23  |  971b  |  42 lines
  1. .key ""
  2. .bra {
  3. .ket }
  4. assign from{$$}: "" ;remember where we came from
  5. resident c:copy add pure ;leave out a disk swap
  6. resident c:dir add pure ;leave out another disk swap
  7. resident c:echo add pure
  8. resident c:setenv add pure
  9. failat 21
  10. lab y
  11. lab yes
  12. echo "*Ec            *E[4mPrinter Install Program*N*N*E[0m"
  13. echo "Insert the *E[1mCommodore Extras 1.3*E[0m disk in any drive.*N"
  14. echo "Printers Available:*N"
  15. cd "Extras 1.3:devs/printers"
  16. IF error
  17. skip err
  18. ENDIF
  19. dir
  20. echo "*NWhich printer ? (press RETURN to exit)" noline
  21. setenv >NIL: q{$$} ?
  22. IF $q{$$} EQ ""
  23. skip err
  24. ENDIF
  25. echo >>env:q{$$} " to devs:printers"
  26. echo "Now copying your printer choice to devs:printers."
  27. copy <env:q{$$} >NIL: ?
  28. IF ERROR
  29. echo "Error during copy.  Do you want to try again ? " noline
  30. skip >NIL: back ?
  31. ELSE
  32. echo "Now choose this printer using Preferences."
  33. ENDIF
  34. lab err
  35. endskip
  36. cd from{$$}:
  37. assign from{$$}:
  38. resident copy remove
  39. resident dir remove
  40. resident echo remove
  41. resident setenv remove
  42.